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DISCLAIMER. . 

The H.A.U.G. Newsletter is the official newsletter of the Hawkesbury 
fipple Users Group, and whilst every effort is made to ensure the 
accuracy of the information contained therein, be it of a generaj 
technical, or programming nature, no responsibility can be accepted 
HAUG as a result of the application of such information. 


SOFTWARE LiUIBRARFY SERVICE. 

HAUG operates a public domain software library, containing programs 
written by HAUG members or provided from other user groups as well as 
miscellaneous public domain sources. A selection of programs is’ made 
available at genera! meetings for the productian/media cost fee. See 
the HAUG LIBRARY NE: articles far more detaiie. ~ 
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SECRETARY’ S EDITORIAL. 


The next HAUG meeting will be the last for this year, the first 
meeting next year will tbe on the 27 JAN 8&. This is" also the last 
newsletter for 1985 the next newsletter will be after the annual 
general meeting which will be held on Monday the 24th of February 1986 
A reminder will be scent to all members in early February. Al? members 
are invited to attend this meeting so that group activities for 
1986, and services provided ty HAUG to members may Fe improved to 
better suit your needs. If you don’t think you got what you expecte 
from the group, the annual eneral meeting will be cur chance tow? 
3 P : 3 q m q ¥ - 
something about it. Ne 

T wish you all avery Merry Christmas and Happy New Year ( a modem 
for Ghristmas I wonder? ). 

I would like ta thank Tan Lister for his efforts in assistina me 
in preiucing the HANG NEWSTEtter as without them many editions would 
not Reve been possible. See you at the meeting. 


Steve EB. 
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Apple Compatable Computer with: 
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280 GARD 

64K CARD IN SLOT 0 (112K TOTAL) 

COLOUR CARD 

ROM CARD 

EMG GREEN SCREEN MONITOR 

DRIVE CARD AND ONE SLIMLINE DISK DRiVE and 
60 DISKS WITH LARGE DISK BOX. 


This computer will run C/PM using programs such as Wordstar 
and Dbase II etc. The extra 64k of memory gives this machine lots 
of potential for the more serious user. The other features alsa 


male (to oan ideal beginners machine (colour card farwnmames ete). 
The asking price is $€860 but any offers will be considered, 
Please contact : r 

BOB WYNNE  BsH G45 783919 


A/H C45 TO3367 


SOFTWARE LIBRARY NEWS 


Me following is a brief description of the programs.-on HAUG library 
disk No 22 . I personally use the menu writer program on many of my own disks, 
the create program may be usefull to all the basic programmers in the group. 

The programs described here are only one side of the disk and there are 


many other smaller progams not mentioned 


»The disk is available to group 


sembers for a small service charge plus the cost of a disk. 


SHE FIRST & PROGRAMS ARE BY FERG. BRAND 


1:MENU WRITER A PROGRAN TO REDUCE THE 
NUMBER OF TITLES DISPLAYED 70 THE 
MININUN. THE HELLO PROGRAM WAS 
CREATED BY THIS UTILITY. 
READ A.WIDESCRIPTION VIA TEXTREAD 
OR TEXT. 


2:BYTESTRING SEARCH A UTILITY TO LOCATE 


BYTESTRINGS IN MENORY. 
READ BS/IDESCRIPTION FOR DETAILS. 


3: DISKTRANSLATE A UTILITY WHICH 

— EMPLOYS TECHNIQUES DESCRIBED IN 
"BENEATH APPLE DOS’. USES DT/BIN. 
READ DT/IDESCRIPTION FOR DETAILS. 


‘“4sHRCG DENO A UTILITY TO ADD TO THE DOS 


TOOLKIT. 


S:MUSICMAKER A UTILITY WHICH ALLOWS YoU 


TO CREATE TUNES VIA THE KEYBOARD, 


AND MODIFY ANDIOR SAVE THE RESULT. 
USES ANIKEYBOARD, NHIKEYBOARD2 AND 


ANISOUND. SCALEIS A SAMPLE TUNE. 
READ NAIDESERIPTION FOR DETAILS. 


&:SHAPER A UTILITY FOR GENERATING HIRES 


SHAPES USING THE LORES SCREEN. 
PEAD SH/ DESCRIPTION FOR. DETAILS. 


PECREATE A PROGRAN DEVELOPING UTILITY; 
ADAPTED FROM AN ARTICLE IN *BYTE’, 


DEC, 198!, BY G. CRAMOND. 


INSTRUETIONS RBPPEAR IN THE PROGRA?: 


BUT THE f° "f ARTICLE HELPS A LO7. 


B: EVERY ATRES COLOUR 255 COLOURS FOR 
THOSE WITH COLOUR DISPLAYS, 


\ 

OSHIRESPLOT.€ & FLOTTING UTILITY FROM 
ANDREW CUNNINGHAM. SAMPLE DATA 7S 
IN FILE TEST.LATA. ASSOCIATED 
FILES ARE HIRESPLOT.LISTING AND 
PLOTFIL£ £27778, 
PEAD HIPEST 77 BOC FOR DETAILS. 


IG6:LISTER.NC A SUBROUTINE WHICH CAN_- 
APPENDED TO AN APPLESOFT PROGF AI ~ 
TO PRODUCE A STRUCTURED “LIST &. 


LL12:PICK-A-BASE A UTILITY TO CONVERT 


gk - 
OM ONE BASE TO ANOTHER. BECOMES 
UNTIDY AFTER SCREEN IS FULL. 


L2:BOOK REVIEW ANDREW CUNNINGHAN’ S 
VIEWS OF JOHN F. WAKERLEY’S BOOK 
"CONPUTER ARCHITECTURE AND 
PROGRANNING’, JOHN WILEY & SONS, 
L98l, 


_ 


L3S8TEXT.READ.V4# A TEXT FILE READER WI? 


BP, if ~ he fg. L “yr ~ 
L4:BETTER NENU OK FOR CATALOGS 
OCCUPY ING ONLY ONE SCREENFUL. 


LS:BINARY FILE FINDER GIVES THE START 
ADDRESS, LENGTH AND END ADDRESSES 
FOR LAST BINARY FILE LOADED. USE 
"CALL 768’ TO RUN. WONT WORK IF 
BINARY FILE LOADS INTO #399-23546 
SPACE, WHICH IS USED BY THIS PGI. 


L1éd:CODE=TO- POKES CONVERTS A-RAH——- 
RESIDENT BINARY FILE INTO A SERIES 
OF BASIC POKES, AND STORES THE 
BASIC PROGRAM ON DISK. 


17:DOUBLECAT PRODUCES A TWO-PER-LINE 


CATALOG LISTING OF YOUR DISK. LONG 
NANES ARE ABRRIVIATED. 


° Steve B. 


AUGEL2 


Junior Filer 


Databases are becoming a more important part of 
everyday life. They are used by police, 
governments, schools, libraries - wherever there 
is the need to store and have ready access to 
large amounts of information. This makes it 
extremely important that children have an 
understanding of how databases work and how to 
use them. 


‘Junior Filer is a database that has been 
dosigned for beginners. It is easy to operate, and 
yet it offers you most of the search features 
found on commercial databases. It allows up.to 
one hundred records to be kept, which is ample for 
most databases created for classroom use. 


When starting out with Junior Filer, the user 
enters his/her name. When this is done the main 
menu is displayed. You can then select to work 
with a Junior Filer file that already exists, make a 
new Junior Filer file or end the program. 


A file name must be entered for the file to be 
‘9ade4d ov created. By entering 3 question mark 
(7), any files that are already on the disk will be 
displayed. When saved, Vun/or Fi/er files end 
with the suffix °.JF’, but this appears 
automatically and does not have to be added to 
the filename by the user. If you have selected to 
work with an existing file, then it will be loaded 
and the file menu will appear. 


lf you select to create anew Junior Filer file, a 
page format must be made. Fieldnames should be 
entered ior tie categories that information is to 
be stored under. Up to five categories may be 
used. When you are satisfied with the page 
format, it is saved to disk and the file menu 
appears. 


The file menu displays what you can do with the 
present file. A message in the upper right hand 
corner of the screen displeys if the file is empty 
or full (0 pages or 100 pages). From the file 
menu, you may select to enter a new page, 
search/order/change existing pages, look at all 


the existing pages, save the file onto disk or 
return to the main menu. 


A feature from “Classroom Computing, 
by Ashton Scholastic. 


Using Junior Filer allows children to create and 
manage databases. This use of the computer fits in 
with work across the curriculum and with many of 
the topics usually studied in the classroom. 


A good introduction is to have your children 
create a class database where they enter 


.information about themselves. Categories can be 


used such aS name, age, sex, height, weight, hair 
colour, and eye colour. The children must first 
collect the appropriate data, such as weight and 
height. This info/*nation can then be entered into 
the database. A Pf intout can be made to allow the 
chidren to edit ary entries that may be 
incorrect. 


When the database has been created and is 
accurate, then it can be used to find out 
information about the class, such as how many 
children are older than a given age or how many 
weigh a certain amount. Graphs and reports can 
be made using the information found. 


sort activity to follow this is to select 4 class 
mystery person. Using your database, a deduction 
game can be created to guess the mystery 
person. Clues are given to the class over a 
number of days such as “This person has brown 
hair*, “This person fs over 115 cm tall’. Children 
use the datebase to gradually who ft is. 


Databases could be created for any topic where 
there are many facts involved. Some units of 
work where databases could be created by 2 class 
include Children’s Books, Wild Flowers, 
Bushrangers, Cars, and Sports. These are only a 
few ideas. There are literally thousands of 
subjects which could be used for databases. 


Creating and managing a database involves using 
many skills - gathering and sorting information, 
entering and editing the information, problem 
solving, logical thought, research skits, graphing 
and reporting. Many of these skills involve 
activitice that are done off the conputer. This 
allows a whole class to be involved in a unit of 
work using only one computer. 


10 DIM RES$(100,5):D$ = GHR$ (4): GOTO S50 GOSUB 240: VIAB (20): PRINT “Please enter the 
20 REM ORDER PAGES * (4) 340 Category Names that”: PRINT “you want infosmatien 
30 GOSUB 200: VIAB (20): PRINT « PRINT "Press: to be stored under.": PRINT “Press'Return’ with no 


"a’ for Ascending (1-10,A-Z)": PRINT + PRINT TAB( name to Finish.": PRINT “Enter a ‘-' to re doa 
4);"“or, 'D’ for Descending (10-1, 2-A)"" Category Name"; 
40 VTAB (I * 34 1): HTAB (X 4 1):A0 © 0:00 = 0: 560 HTAB (1): oF = 02D = 0: FOR I = 1 TO $ wes 


SO IF AS = "A" OR AS = "a" THEN AO © 1: GOTO 80 Nemes" 2 INPUT "a FONS(I)2QNS(T) @  LEFTS 


30 core 40 “DY OR A$ = "A" THEN DO = 1: GOTO 80 ONstT), easiIy eee AD I Pte a atI- 1F a 
RoE CRO, ° “SORTING INTO 590 Wop tre 3 + 1): PRINT I3"."sCNS(I)3"23"3 
rohan’: "wayne 7 YM mi a ev 
100 IF Xe OAD Y M0) 140 610 GOSUB 220: VTAB (20): PRINT "Is this how you 
110 IF AOANDX> =» Y TH 170 want your Page set out: PRINT NAMES;: INPUT "2 
330 Goro 160 _ _ m0 620 IF LEFTS | (ANSS,1) <« > “Y" AND LEFTS 
190 OD RES 6 V5) >= REST) THEN 630 GOSUB 14207 GOTO 710. 
150 IF DO AND RES(M +.) < = RES(M,I) THEN NaFILES VTAB (9): PRINT “Loading the file 
160 FOR N = 1 TO F:RE$ » RES(M + 1,N):RES(M + 650 PRINT D§; OREN gFTLES UF" PRINT 
VAN) © RES(M/N)2RES(M,N) = RE$: NEXT NiL = 1 670 INPUD F: FOR I © 1 TO F: INPUT QNS(I): NEXT 
M300 MONT’ Gune (7): GOI 710 680 INPUT CO: IF CO = 0 THEN 700, 
190 REM SCREEN ROUTINES 690 FOR I «= 170 ©: FR J 21 WF: INPUT 
200 VTAB (20): HTAB (1): PRINT ‘TAB( 200): RETURN 500 SUNT ne ;"CLOSE" 
210 VTAB (3): HTAB (24): PRINT “"Page# ".r5" of 710 ONERR GOTO 1620: REM MENU STARTS HERE 


";00;" ": RETURN 
220 ‘GOSUB 240: FOR J = 170 F: VIAB (J * 3 + 1): 


PRINT J;".";CNS$(J);"s": NEXT : RETURN 
230 FOR J = 1 TOF: VTAB (J * 3 + 1): HTAB ( LEN wile Emty” O THEN VTAB (1): HTAB (31): PRINT 


CN ¢ PRINT ° . 
(RES(1.0))) 2 BRET H NEXT! RETURN ro" LEN Hae ee PRINT "What would you like to do 


io: HIRE (Zhe OR “File :0j:2 = 21 - LEN (FILE$) 750 PRINT : PRINT" 1. Add a Page." : ‘PRINT : 
: > PRINT FILE$;: PRINT PRINT " 2. Search/Order /Change Pages.": PRINT : 


720 GOSUB 240: IF CO = 100 THEN V7AB (1): HTAB 
(32): PRINT “File Full" 


250 PRINT ‘ 
Ca nr nennnmnnnnananesiiese”: VTAB Soo PRINT ot a Pages. ie to disk.": PRINT 
oe ee *. RETURN : PRINT " 5. Return to the Main Menu.": PRINT : 
eee ° PRINT "Please press 1-5:"3 

0 t 

370 SE PAGE ; 7 780 GET A$: IF A$ = "5" THEN 850 
¢ VTAB (20): PRINT : PRINT "Are you 4 790 IF A$ = "4" THEN GOSUB 1400: GOTO 710 * 
“sure, that you want this page”: INPUT "removed? 800 IF A$ = "1" THEN 900 
PNose em Were i. Bate - Py . 
ew TS (585801) © “SAND LEFTS i To TP Ae Om EN STD CRE (Tis GOO TY 
(ANS$,1) < ae THEN GOSUB 200: GOTO 1230 830 IF AS = bea bad THEN 1330 
330° REM START HERE your work ";NAME$;"'."": VTAB (9): PRINT "Do you 
. of, INPUT 

340 FILE$ = “Welcome to Junior Filer": GOSUB 240 TNO) SANG your work? (Yes or’: 
350 VTAB (6): PRINT * Hello there eecee' 3 PRINT 860 “TF ANS oeo0e THEN 710 
: PRINT " Who am I working with today?": PRINT : LEFTS pote LEFTS$ 
PRINT " Please tell me your first name." ae nN 400 (ANS,1) = ON" OR (ANS,1) = 
360 VTAB (13): HIAB (14): PRINT ""'s: HTAB (13): 
INPUT " ";NAMES:NAME$ = LEFTS$ (NAMES,12): IF 200 REN ADD A RECORD, 
NAMES =. THEN 360 900 IF CO = 100 THEN PRINT GHR$ (7);: GOTO 780 


370 P = JASC ( LEFT$ (NAME$,1)): IF P > 96 THEN 
NAME$ = CHRS (P - 32) + MID$ (NAMES$,2,12) 
400 POKE 216,0:FILE$ «= “Junior Filer Main Menu’: 


910 CO = © + 1:I = CO: GOSUB 220: GOSUB 210 
920 VTAB (21): PRINT "Enter your informatfon for 
each category"; : PRINT “and press ‘Return’. If nro | 


GOSUB 240 
e information is";: PRINT “to be entered then press" 
Phe eee: PRINT PRINT “what would you like to do . * Opetumn’." r 
NAMES ; ue 
420 PRINT : PRINT " 1. Make 930 FOR I # [0 Fs: VTAB (I * 3 + 1): HTAB ( LEN 
file." a New Junior Filer (CNS$(I)) + 4): INPUT " ";RE$(CO,I):RE$(CO,I) = 
° . " ; LEFT$ (RE$(CO,I),100): NEXT 
ao ee : PRINT " 2. Work with an Old Junior 940 FOR I = 1 TO F: IF RE$(O,I) <« > ‘” THEN 
°. o os . : . 710 
oie : PRINT " 3. Finish working with Junior 950 NEXT : GOTO 930 
. . " _a.n, 960 REM SEARCH PAGES INTRO 
450 PRINT 3 PRINT Please press 1-3:°; 970 I = 0: GOSUB 220: VTAB (20): PEzYI " Press 


: > "3" THEN 4 
470 HOME? VIB (11) PRINT "See you soon ‘Return’ to move cursor, and:": PRINT : PRINT " = 
eNAMES =." END equals, < less than, > greater thaft,’: PRINT: 
480 Coro 340 PRINT " @ contains, or “ to put in crder."; 
490 IF A$ <« > "1" ANDAS « > "2" THEN 460 980 EQ = O:LTH = 0:GTH = 0:CN = O71 = 1 
500 FILE$ = "Enter File Name”: GOSUB 240 990 VTAB (I * 3 + 1):X = LEN (CQi$(1I)) + 4: HTAB 
(X): GET A$ 


510 VTAB (8): PRINT" Please enter the Name of An tic tt we wean, 
the File:": VIAB (14): PRINT TAB( 5);"Enter a '?' ea CR AS OREN PRIN 
to Catalog the Gdisk." ° . ois : -_ on 

520 VTAB (11): HTAE (14): PRINT "";: HTAB (13): roe eee ae) MOLE 
INPUT ee "FILES: IF FI! = qoue THEN 400 oe S 1090" < On AS = ’ Tints AS = cosh = 
530 IF FILES « "2" THEN HOE : PRINT = GoTo non ON mere uot, . 
DS;"CATALOG": PRINT T?E( &);"Press a key to on MF aso, >" OR AS = "." THEN AS = 92°:GTH 
continue."3: GET BS: GTO 500 nan 1040 IF AS = "ar OR AS _ ay THEN AS = "ea" CN 2 
540 FILE$ = LEFT$ (FILE$,12): IF A$ = "2" THEN 1: GOTO 1090 


€40 


CHR$ (27) THEN 710 


1U5U | 
CHRS (13) TON I 21¢1; IFI>F 


1060 
Ti2] I 
1070 


GOTO 990 

1080 REM SEARCH ROUTINE 

1690 PRINT A$;: GOSUB 200: VTAB (20): PRINT ; 
PRINT "Please enter what you would like to”: PRINT 
“search for and then press ‘'Retum'.” 


1100 L = Iz: VTAB (L * 3 + 1): HTAB (X + 1): INPUT 
" "sSE$:SE$ = LEFT$ (SE$,25): IF SE$ = "" THEN 
70 ~ 


1110 I = 0: GOSUB 220: VTAB (1): PRINT CN$(L);" 
“sa$;"' "sSE$; TAB( 40):I = 1 
1120 GOSUB 210:X = VAL (RE$(I,L)):¥ = VAL 
IF EQ AND RE$(I,L) = SE$ THEN 1230 
NOT CN AND Y ¢ »> O THEN 1200 
_IF LTH AND RE$(I,L) < SES THEN 1230 
50 IF GTH AND RE$(I,L) > SE$ THEN 1230 
CN THEN 1290 
SE$): FOR K = 1 TO LEN (RE$(I,L)): 
,L),K,X) = SE$ THEN 1230 
s GOTO 1290 
1200 IF LTH ” AND X « Y THEN 1230. 
14-4210 IF GTH AND X > Y THEN 1230 
1220 GOTO 1290 . 
1230 GOSUB 230: VIAB (20): PRINT "Press: ‘Return’ 
to Continue....": PRINT : PRINT " 'R' to Remove. 
‘C' to Change.": PRINT : PRINT" ‘P* to Print. 
‘Esc’ to-cance 1." 
1240 IF AS = CHR$ (27) THEN 710 
1250 "R" OR A$ = "r™ THEN 270 
1260 "Cc" OR AS = "co" THEN 1570 
1270 "Pp" OR AS = “OM THEN 1480 
1286 > CHR$ (13) THEN 1240 
1290 
1300 
1310 
1320 
1330 


* ,t ete 


+ 1 
<« « © THEN 1120 

PRINT CHR$ (7): GOTO 710 

REM PRINT ALL 

GOSUB 220: FOR I = 1 TO CO: WOSUB 210: GOSUB 
230: VIAB (20): HTAB (1): PRINT "Press: ‘Return’ 
to continue....": PRINT : PRINT TAB( 9);"'F' to 
Flick through pages."“: PRINT : PRINT TAS( 
9);""Esc' to cancel."3 

1340 IF.A$S = “F" OR A$ = "£" THEN FOR ¥% = 1 TO 
c00: ia >: IE PEEK { - 16384) « 128 THEN 1380 
1350 GET A$: IF A$ = “F" OR A$ = “£" THEN 1340 
1360 IF A$ = CHR$ (27) THEN 710 

1370 IF A$ <« > CHR$ (13) THEN 1350 

1380 NEXT : PRINT CHRS (7): GOTO 710 


Fon 


1390 REM SAVE 


1400 GXSUB 240: VTAB (9): PRINT "Carefully Saving 


the file “;FILE$;"." 

1410 PRINT D$;"UNLOCK" ;FILES$;".JF" 
1420 PRINT. D$; ‘OPEN sFILE$;" LJF": 
D$; "WRITE"; FILE$;".JF" 

1430 PRINT F: FOR I 2 1 TO Fs PRINT CNS$(I): NEXT 
1440 PRINT CO: IF © = 0 THEN 1460 

1450, FCR I = 1 TO CO: FOR J = 1 TO Fs PRINT 
RES(I,J): NEXT J: NEXT I 

1460 ERINT D$;"CLOSE"s: PRINT 

D$; "LOCK" ;FILE$;".JE": RETURN 

1470 OUERR GOTO 1620: REM PRINT ROUT. 

14° IF DTE$ = " THEN GOSUB 200: VTAB (20): 
PRINT : PRINT “ Please enter the Date: : HTAB 
(24): INPUT " "sDTE$:DIE$ = LEFT$ (DTE$,13): IF 
DTE$ = ‘"' THEN 1480 

1490 GCSUB 200: VTAB (20): PRINT ; PRINT “ Press 
‘Return’ when printer is ready."; 

1500 GET BS: IF B$ = CHR$ (27) THEN GOSUB 200: 
GOO 1230 

1510 IF B$ < >» CHR$ (13) THEN 1500 

1520 PRINT : PRINT D$;"PR#H1": PRINT “File: 
"FILES; SPC( 67 - ( LEN (FILES) ¢ + LEN. 
{DTES))); "Date:  -DTE$ 

1530 GOSUB 1550: PRINT : FOR N = 1 TO F: PRINT 
N37. "s3CNS(N)3"s "SRES$(I, N): PRINT ; NEXT : GOSUB: 
1550 
1540 PRINT D$;"PR#HO": 
1550 FOR N= 1 TO 80: PR 
RETURN 

1560 REM CHANGE INFO 
1570 GOSUB 200: VTAB (20): PRINT : PRINT’ “Enter 
the information that you want": PRINT " 
each c$tegory and press": PRINT "'Return'. 
information is correct": PRINT “then press 


PRINT 


GOTO 1230 
PRINT “="se: NEXT : PRINT : 


WF the 


1580 FORN=1 TOF:X «=N * 3+ 14:Y = LEN 
(CN$(N)) + 4: VTAB (X): HTAB (Y): INPUT " 
“sANS$:ANS$ = LEFTS$ (ANS$,100) 

+2; IF anc$ = "-“ THEN RES$(I,N) = "": 
1600 IF ANS$ <. > "" THEN RES$(I,N) = ANSS$ 

1610 VTAB (X): HTAB (Y + 1): PRINT RES$(I,N33 SPC( 


Col. stte' 


tw 


101 - LEN (RE$(I,N))): NEXT : GOSUB 200: GOTO 
1230 
‘1620 PRIN} |$;"CLOSE”: GOSUB 240: ViaB ,1U): 


sPRINT “Error #"; PEEK (222);" occured. Press the 
* Esc! key.''s: GET BS: GOTO 710 ———{ 


. ° . 


RAGTC TRANSPER /MITOROMODEN-1i 


FIRST RUN THIS PROGRAM AND THEN 


MO OHiNe 


FETABLISH REMOTE CONTROL OF RECEIVING 

M LEAVE TERMINAL FOOT BY 

} THEN TYPE “EXES 

CHR (4) 
Dé "OPEN 

NT D¢"WRITE BA 

HT "POKE 150,605 


Y MAY BE REGUT 


BASLE. 


] 
c 
ven. 
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beet PRO-RAM TRANS©SE 


CTRL-A 


-——PROGRAM-- 


The following program was written and contributed by David Zannit 


“who recently joined the group and is’ our youngest member. 
Drawer II is a doodling type program written in basic,some features of 


“this program are; 
White background on startup, incrementing diagonals.and an automatic 


‘aving routine which verifies itself. 


GB REM Fee eee eke ee KERR ERS SS EESE - 
5S REM # DRAWER VERSION II].a # BY DAVID ZAMMIT 
2H REM FREER REEF SEER EEREFERSESSE 
zo TI = "DRAWER VERSION -II.g" ~ | 
3G TEXT : HOME : HTAB (48 - LEN (TI#)) / 2: PRINT TI¢ \ 


35 GQSUB 65:1 = 25 

46 HTAB 1: INFUT "NAME GF PICTUREC DRAWING? >" sat 

45 INFUT FORINT BACKGROUND WHITE "sxt: IF X@ = "YY" THEN PA = 1 

96 iF VA “ASD € D> & THEN VTAB 26: INVERSE : PRINT "FILE-NAME ERROR" 

: NORFMeL :M ‘= PEEK ¢ - 16336): GET XX#: RUN | 

‘55 0D = CHEE ¢4) 7 

464 IF Bt = "YY" THEN 186 

45 GOTO 18% 

7h REM Fee S tee eee er CHEESES ES HEH OS 

7o REM * INSTRUCTIONS !!! ¥ 

S| REM SEES ES HES FSHRESH SS HSE SES 

So UTAE Bi: PRINT "KEYS-> U 1 O": HTAB &: PRINT JK": HTAB S: PRINT 
NM ," 

Fe Vrec fis HTAE 13: INVERSE : PRINT "#": HTAS 13: PRINT "*": HTAB 13: PRINT 
Nee HOGrG, » YVTAB Zi: HTSE 14: PRINT "DIRAW SSTOP": HTAB 14: PRINT 


"OQIINCREMENTICSIZE DOT": HTAE 143 FRINT "CESCO FINISHED PICTURE”: FUKE 
FS ry et Je 
mis 
q {a ¥ CTP a lk eh we 
JHW5 Feri + + 
118 FEM = STSsesTil + 
115 rem + ¥ 
Leu FEM xeeeeer ee 4% 


i25 SF 
13@ fF Fe = i Then HCOLGR= 3: FOR 1 = @ TO 155: HPLOT @,1 TO 27%,1: NEHT 
A 
i135 X = 139:Y = A:b = G:I = 18 
14@ X1 =xX1Y¥1 = y | 
145 IF PEEK ¢ - 16384) > 127 THE) GET Bf; PORE - 14242.4: GOTO 155. 
158 HCOLOR= 9: HPLOT X1,Yi: HCGLOR= @: HPLOT *1,Yi: ScTO 
155 IF &¢ = CHR ¢€27>) THEN 316 ~. 
is6@ IF &F = "LD" THEN-D = @ 
ish IF €# = =" THEN D = & 
ive 5 £2 ¢€ } F* THEN es 
i175 IF €2 = © THEN SOME : VTGE Fit HTSE wi: FEI bella 1 SET 
Be PRT OT Se: TE Wee «xt + TRE Sor ft 

= SOSce ree 
PSE FS tk TSE Bis Tes PO TR 
1FH GIT Ts 

= is (xX$) < 2 e - (XF) > FHE _ 
Lae = (X$): TSE Bir 27-5 4p Fer 
Se = YP TPS = - .:% Xs 

* - = O a = - x xX + 
CF fs No oT-E. = = =X 
papers 27 re = if tn = - 
SEE YF ff = ," TREN ¥ = s =X + 
= on = MY TRE = - 

Jove = - 
54 K THE = 


DRAWER II Continued 


Ir Y 8 
Ye oY | 
IF * <«< @ 
IF X > 2 
HCOLOR= D 

IF Bf = "PR" OR Be = "S" GR BF = "G" THEN GOTO 1586 
HELOT k1,Y1i ya 


a oe 


iow s 


@@=1 


> UT OF ty ft) KI 
Sys ce oh een 


i 
''; 


So td baler he ho td Os tg oO oo 
~ J ~J 


“Hi fib tet 
OL A 


Wr tee PA Oe te ce 


L. 
mye 


GOTO 146 

REM HESS SS HE ESTHET SSS ES 
REM « comell Fe save « 
Rear Hee ¥ 
REM: A eR Nl olin Ee Nea te le Ee ae at 
G.ERR GOTG +85: PRINT Dé: FRI 
PRINT DS"BSAVE "At" ,AtZO00,LE2000" 
PRINT D&"VERIFY "at 

TEXT : HOME °: FRINT "DONE ..." 

HGR 


FeitT "JUST RUN CURSOR OVER THIS 
FRINT "© 2S LGHnD "Ag 


Z 
ite 1 
Bot YS: IF YE = CHRE C15) THEN FPETURN 
BL = WAL ovBo: IF Gt ¢ &@ OR OG ¢& THEN 355 
Som VE + 8S _ LST ae 
RET UREA 
Ao ee ee es 
mey * >: 
FEM * ERRORS COTO » 
Pat moe > 
REM 
a EP SESE SP SHSESSHSERS He 


Tes? : HOME : VTs5 Fr rieRb Si PrRifd "wpa bipsiiia 
WTP 16: HTAB SS: MRINT "*EREOR TYPE FEEK C22s0°# 
WVTes tL: HTAB SF: FRIMT "Sr prrrrrrbrs reset 

ane; 


~~~ INSTRUCTIONS-~- 


1) Type name of picture 

2) Type Y/N for painting the background 
4) Keys used are: 

increment size ( 1-19 ) 

D - draw 


&E 
( 


S - stop 
ESC- finnished 
4) Curser control 
U,I,0,J,K,N and 


_ PROGRAM 


“* -@his program will allow binary file program transfers between computers 
written for a Micromodem II but should be easly converted to other modems. 


19 REM BINARY TRANSFER/MICROMODEM II 
20 Dt = CHR (4) 
“30 PRINT D$"NOMON C,1I,0" 
Ye GOSUB 420 | 
INPUT "1S RECEIVING COMPUTER IN REMOTE MODE WITH EITHER BASIC INITIAL 
fF EFED?":ANS$ | 
Aas, PRINT r 
70 IF LEFT$ (ANS$,1) < > "Y" THEN PRINT "TRANSFER ADANDONED"”: END 
BO -POKE 1530,60: POKE 1914,18: REM 600 MSEC WAIT AFTER CARRIAGE RETURN -. 
AUTO LINE FEED IS ACIVATED AND THE WAIT FUNCTION + LOCAL DISPLAY ENA 
BLED. 
90 PRINT "STARTING ADDRESS-": INPUT "(MUST END WITH O OR 8)":ST$ 
100 REM LINES 110/170 - HEXIDECIMAL TO DECIMAL CONVERSION. 
110 Z2$ =. "01234546789ABCDEF”" 
120 .FOR I. =. LEN (ST$).TO 1 STEP - 1 ee ens 
i30 FOR J = i TO LEN (2$) ; 
140 IF MID$ (2%,17,1) < >» MIDS (ST$,1,1) THEN NEXT J 
150 DEG = DEG + (J - 1) * (16 * X) | 
ipQ KA = KX + 1: NEXT I 
170 HR = INT (DEC 256) 'LB = DEC - (HB * 254) 
180 REM LINE 190 PLACES THE DECIMAL EQUIVALENTS OF THE HIGH @ LOW’ BYTE 
ADDRESS INTO THE PAGE 0 LOCATIONS USED BY THE MEMORY DUMP ROUTINE. 
i790 POKE 61,HB: POKE 40,LB 
200 INPUT "NUMBER OF BYTES (DECIMAL) ":NB 
210 PRINT : INVERSE : HTAB 6: PRINT "HITTING ANY KEY ABORTS TRANSFER": NORMAL 
8 


Ca 


Y PRINT D¢"PR #2" 
wo) PRINT "CALL-151" _ 
‘250 PRINT : REM SENDS CARRIAGE RETURN. 
O FOR I = 1 TO INT (NB / &) + 1 
O IF PEEK ( - 16384) > 127_.THEN POKE —- 16348,6: GOTO. 300 
280 CALL 4113: REM CALLS MACHINE LANGUAGE ROUTINE ‘BELOW. 
290 NEXT I 
200 PRINT 
310 PRINT "3D0G" 
320 PRINT D&$"PR #0" 


330 PRINT: “4 
240 FOKE 1530.39: REM. NORMAL. 22 MSEC WAIT. | 7 
350 PRINT " “~ Ee ALL DONE #2" ‘ 


360 PRINT : PRINT "THE SENDING COMPUTERIS NOW IN TERMINAL MODE & THE REC 

| EIVING COMPUTER HAS BEEN RETURNED WITH BASIC UF IN REMOTE MODE." 

270 FRINT : INVERSE : HTAB 15: PRINT "HIT RETURN": NORMAL 

360 PRINT D¢"IN #2" | 

390 FORE £914,138: REM INITIATE TEMINAL MODE/FULL-DUPLEX (USE 10 FOR 
HALF-DUPLEX). 

400 END 

410 REM LINES 420/450 LOAD RELOCATED MEMORY DUMP ROUTINE AT $1006. 

420 FOR M = 4096 TO 4147: READ 2D: POKE M.D: NEXT M 

430 RETURN 


rs 


240 DATA 4,61,166,60,32, 142,285.22, 64,249,160,0,16°, 186,76, 227.253, 4¢ 

my EB Oe 183.62,165,61,122,.62,165,60,41,7,208,3,92.0,16 | 

MG DATA :6%.160,32,237, 253,177, 60.32, 218, 259,32, 186,252,144, 287.55 

“60 REM THE BASIC PRGM + DUMP ROUTINE OCCUPY $800-$1040. IF THE BINARY 
DATA TO BC SENT RESIDES IN THIS RANGE, IT MUST. FIRST BE RELOCATED & 
ITH THE MONITOR MOVE COMMAND, 


mya y 


ae ae? 


F 


f 


computer 
computer 
computer 
computer 
computer 
computer 


computer 


computer 


computer 
camputer 
computer 
computer 
computer 
computer 
computer 


computer 
lends. 


computer 
computer 
cemputer 
computer 
computer 


ramputer 


unfaitaiful. 


7} 
de te" / 


Pi 


A, 


& 


Momouter 
computer 


camputer 


PPePPPP PSS eSS eS SSeS eS 2S SPSS 2 2 2 2 2 2 2 2 2 SSS 5 


* ¥ 
* 25 REASONS WHY YOUR COMPUTER MAKES +# 
x. AN IDEAL PARTNER > 
x: +. 
EXER EEE RPE REREREREREERRERERKRERSERERKERE 


is always ready when you are. 
obeys your every command. 

never gets a headache. 

in the morning 


will respect you 


doesn’t cause problems it selves them. 
accepts you just the way you are. 
listens to reason. 

doesn’t snore. 

won’t take you for granted. 

lovers. 


never compares you ta its past 


doesn’t take forever in the bathrnam. 


doesn’t have a father who owns a shotgun. 


won’t take up all your wardrobe space. 


is a lot smarter than anyone else you’ve ever dated 
won’t leave hard to remove stains on your sheets 
won’t embarrass you in front of your parents or 


coeen't make you fest cuitty about anything. 

* 
won’t grab all the blankets in the middie of the night. 
wil?) never ask you tao spend holidays with its famii 
won’t use up all the hot water in the shower. 
woen’t get upset if you just roll over and go to sleet 
won t leave you if if finds cut you have been 
won’? make you Sian a pre-riuptiual agreement. 
can t tesi BeGainst you in court. 
can’t Give you aids 


